home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / text / misc / ht.lha / hypertext / Rexx / test.dme < prev    next >
Text File  |  1990-12-23  |  531b  |  27 lines
  1. /* this is a sample rexx macro to dump a file right into HT.... */
  2.  
  3. /* now get the filename we were called with */
  4. parse arg name
  5.  
  6.  /* if we don't have a full path name, build one... */
  7.  if (index(name, ":") = 0 & index(name, "/") = 0) then do
  8.    cur_dir = pragma(D)
  9.  
  10.    if length(cur_dir) > lastpos(':' , cur_dir) then
  11.      name = cur_dir || '/' || name
  12.    else
  13.      name = cur_dir || name
  14.  end
  15.  
  16. /* make sure HT has started up... */
  17. call startht.rexx()
  18.  
  19. /* and tell HT to load it */
  20. address HT LOAD name
  21.  
  22. /* we're done */
  23. exit
  24.  
  25.  
  26.  
  27.